home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 90 / 090.d81 / star basic demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  2.8 KB  |  65 lines
  1. 100 ifa=.thena=1:load"star basic",8,1
  2. 200 sys35792:poke56,56:clr
  3. 300 !cls:!printat2,10,"[159]loading sid.obj...":!bload"sid.obj"
  4. 400 !printat3,10,"loading music...":!bload"twenties.mus",18688
  5. 500 !printat4,10,"loading pic...":!compload"ggpic"
  6. 600 !border0:!back0:!disable:rem function keys
  7. 700 !cls:!cset1,14336:poke53272,30:!anion14336
  8. 800 !printat1,5,"[152][211][160][212][160][155][193][160][210][160][160][160][194][160][193][160][211][160][201][160][195][155][160][160][160][196][160][197][152][160][205] [207]"
  9. 900 !printat2,4,"[151]-------------------------------"
  10. 1000 printtab(12)"[154]by [211]teven [197]msley"
  11. 1100 fori=5to11:!printati,10,"[158][169][169][169][169][169][169][169][169][169][169][153][223][223][223][223][223][223][223][223][223][223]":next
  12. 1200 fori=12to18:!printati,10,"[159][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169]":next:!frame1,5,"[223]"
  13. 1300 !anispeed3:!anileft95:!anidown105:!aniright45
  14. 1400 !sidon:!sidloc18688:!sidstart1
  15. 1500 !printat22,9,"[158][146][208]ress any key to go on":!getr
  16. 1600 fori=1to11:!rect0,5,40-i*2,25-i*2,i,i,"[223]":next
  17. 1700 !printat12,12,"                "
  18. 1800 fori=11to1step-1:!rect0,1,40-i*2,25-i*2,i,i," ":next:!cls:!sleep1
  19. 1810 !fill1024,1024+40*12,160:!cfill15
  20. 1820 print"[155][201] made this block by filling a section"
  21. 1830 print" of screen memory with 160's (reverse
  22. 1840 [153]" (NULL)(NULL)atnlenval) with the !ascright$(NULL)(NULL) command.":![161]a$
  23. 1845 [153]" (NULL)here is also a !(NULL)(NULL)(NULL)val command.  (NULL)et's
  24. 1850 print" [205][207][214][197] the top of the screen to the
  25. 1855 [153]" bottom...":![161]a$
  26. 1860 !move1024,1024[170]40[172]12[170]1,1024[170]40[172]13:![161]a$
  27. 1861 !fill1024,1024[170]40[172]12,160:![153]at7,3,"(NULL)hat was one creative use of !(NULL)(NULL)(NULL)val."
  28. 1862 [153]"(NULL)ou can also use it to scroll a"
  29. 1863 [153]"section of the screen...":![161]a$
  30. 1865 [129]i[178]1[164]12:[129]d[178]1[164]9:[130]:!move1024[170]40[172]14,2023,1024[170]40[172]13:[130]:![161]a$
  31. 1867 [129]i[178]1[164]11:!move1064,1024[170]40[172]11,1024:[130]:!sleep1
  32. 1870 [153]"(NULL)ou can display (NULL)(NULL)atn(NULL)atn pics with one"
  33. 1875 [153]"command.  (NULL)ress a key to see...":![161]a$
  34. 1880 !cfill1:!pause5:!cfill15:!pause5:!cfill12:!pause5:!cfill11:!pause5:!cfill0
  35. 1900 !kdis:![161]a$:!cfill0:!text:!cls:!back0:!b[176]der0
  36. 2000 !fill1024,1024[170]40[172]12,160:!cfill15
  37. 2100 !speed25,1:[153]"list   (NULL)his is an example of slow printing.":!sleep1
  38. 2200 !speed65,1:[153]"(NULL)ow it's even slower.  ";:!sleep1:!speed1,0
  39. 2300 [153]"peekack to normal!":![161]a$
  40. 2400 !fill1024,1024[170]40[172]12,160:!cfill15
  41. 2500 [153]"(NULL)ou can animate up to four characters"
  42. 2505 [153]"in your font, scrolling them in any of"
  43. 2510 [153]"four directions...":![161]a$
  44. 2600 !anispeed1:!aniup1:!anidown2:!anileft3:!aniright4
  45. 2700 !fill1024[170]12[172]40,2024,1:!sleep2:!fill1024[170]15[172]40,2024,2:!sleep2
  46. 2800 !fill1024[170]18[172]40,2024,3:!sleep2:!fill1024[170]21[172]40,2024,4:!sleep2
  47. 2900 !rect0,7,8,11,1,13,"a":!sleep2:[153]
  48. 3000 !rect0,3,8,11,11,13,"b":!sleep2:[153]
  49. 3100 !rect0,13,8,11,21,13,"c":!sleep2:[153]
  50. 3200 !rect0,8,8,11,31,13,"d":![161]a$
  51. 3210 !cfill1:!pause5:!cfill15:!pause5:!cfill12:!pause5:!cfill11:!pause5:!cfill0
  52. 3300 !cls:!anioff:!sleep1
  53. 3400 [153]"loadopen  (NULL)his is just a sampling of the easy"
  54. 3500 [153]"to use commands in star basicopen.
  55. 3600 printspc(7)"[159][209]uit or [196]emo again?  [158]([209][159]/[196][158])"
  56. 3610 geta$:ifa$<>"q"anda$<>"d"then3610
  57. 3620 ifa$="q"then:!sclr:!quit:goto60000
  58. 3700 run600
  59. 10000 save"@0:star basic demo",8
  60. 60000 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  61. 60010 if er<>63 then print"[147]":poke56,160:clr:end
  62. 60011 q$=chr$(34):poke646,peek(53281):print"[147]"
  63. 60020 print"load"q$a$q$",8"
  64. 60030 print"run":poke631,13:poke632,13:poke198,2:end
  65.